home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / docs / hyper / STCCGupdate.lha / STCCGupdate / install next >
Text File  |  1996-12-19  |  5KB  |  165 lines
  1. ; Update-Install-Script for STCCG.guide
  2. ;
  3. ; © 1996 Ralf Schwate
  4. ;
  5. ; $VER:STCCG-update-install 2.1 (20-Dec-96)
  6. ;
  7. ; Version 2.1
  8. ;
  9. ; 1.0  Initial Release
  10. ; 2.1  Used for Update of 2.0 to 2.1
  11. ;
  12. (if (= @language "english")
  13.     (
  14.         (set @abort-button "Cancel installation")
  15.         (set @app-name "STCCGguide")
  16.         (set #stccg_introduction (cat "\n"
  17.  
  18.             "STCCG.guide 2.1                                    \n"
  19.             "All Rights Reserved.                               \n"
  20.             "                                                   \n"
  21.             "©1996 Ralf Schwate                                 \n"
  22.             "                                                   \n"
  23.             "An AmigaGuide-Database for the Card Game           \n"
  24.             "Star Trek: The Next Generation                     \n"
  25.         ))
  26.         (set #stccg_error (cat
  27.  
  28.             " Some error has occured. Please inform the author  \n"
  29.             " (e.g. Ralf.Schwate@mch.sni.de) after having tried \n"
  30.             " a different Installer release.                    \n"
  31.         ))
  32.         (set #stccg_datafile_missing (cat
  33.  
  34.             " Datafiles are missing! You also need the archive  \n"
  35.             " STCCGdata.lha extracted in the same directory     \n"
  36.             " where you extracted this archive!                 \n"
  37.             "\n"
  38.             " Aborting install....                              \n"
  39.         ))
  40.         (set #stccg_where "Please select a destination for the STCCG.guide drawer")
  41.         (set #stccg_where_help
  42.             (cat "Use this dialogue to select the partition or the directory where you "
  43.                  "want the STCCG.guide drawer to be created.\n\n"
  44.                  @askdir-help
  45.             )
  46.         )
  47.         (set #stccg_update_install (cat
  48.  
  49.             " You already have STCCG.guide installed. This      \n"
  50.             " installation assumes, you want an update of the   \n"
  51.             " installation.                                     \n"
  52.             " If you want to install new, abort the installation\n"
  53.             " remove the assign 'STCCG:' ('assign STCCG: remove'\n"
  54.             " in a shell) and start the installation a second   \n"
  55.             " time!                                             \n"
  56.         ))
  57.         (set #stccg_new_install (cat
  58.  
  59.             " This is a new installation of STCCG.guide!        \n"
  60.             " A directory will be created in which all files    \n"
  61.             " will be copied!                                   \n"
  62.         ))
  63.         (set #stccg_already_installed_font (cat
  64.  
  65.             " It seems you already have installed a             \n"
  66.             " StarTrek.font!                                    \n"
  67.             " You need an 8pt size font to use the Guides       \n"
  68.             " correctly. If you installed this font with a      \n"
  69.             " previous STCCGguide version you are safe.         \n"
  70.         ))
  71.         (set #stccg_install_font "Installing needed fonts in Fonts:?\n")
  72.         (set #stccg_install_font_help (cat "\n"
  73.  
  74.             " STCCG.guide needs the font StarTrek.font in size 8\n"
  75.             " to correctly display some of its pages.           \n"
  76.             " The installer script tries to install this font   \n"
  77.             " into the Fonts:-directory.                        \n"
  78.         ))
  79.         (set #stccg_add_assign "Add STCCG assign to user-startup?\n")
  80.         (set #stccg_add_assign_help (cat "\n"
  81.  
  82.             " STCCG.guide needs this assign to find crosslinked \n"
  83.             " files in it's database!                           \n"
  84.         ))
  85.         (set #stccg_install_show_script (cat
  86.  
  87.             " There is already a show-script installed!         \n"
  88.             " Do you want to update the current show-script?    \n"
  89.         ))
  90.         (set #stccg_install_show_script_help (cat "\n"
  91.  
  92.             " STCCG.guide needs the show-script to show pictures\n"
  93.             " contained in the guide. There should be no need to\n"
  94.             " update the current script. Only if the viewing    \n"
  95.             " utility cannot be found anymore.                  \n"
  96.         ))
  97.         (set #stccg_viewer "Please select a viewer for pictures in the database")
  98.         (set #stccg_viewer_help (cat "\n"
  99.  
  100.             " STCCG.guide needs this file to show the pictures  \n"
  101.             " included in the database. Should support iff- and \n"
  102.             " gif-formats!                                      \n"
  103.         ))
  104.         (set #stccg_complete "\nInstallation complete.")
  105.     )
  106. )
  107.  
  108. ; ** Setting of Variables
  109. ;
  110.  
  111. (set install_mode 0)
  112. (set install_mode_new 0)
  113. (set install_mode_update 1)
  114. (set install_show_script 1)
  115. (set install_show_script_no 0)
  116. (set install_show_script_yes 1)
  117.  
  118. (onerror (
  119.  
  120.     (if (> @ioerr 0)
  121.  
  122.         (message (cat "\n ERROR CODE: " @ioerr "\n\n" #stccg_error))
  123.     )
  124. ))
  125.  
  126.  
  127. ; ** Start of Installation
  128. ;
  129.  
  130.  
  131. (message #stccg_introduction)
  132.  
  133. (welcome)
  134.  
  135. (transcript "On installing STCCG.guide ...")
  136.  
  137. (complete 0)
  138.  
  139. (if (exists "STCCG:" (noreq))
  140.     (
  141.         (message #stccg_update_install)
  142.         (set install_mode install_mode_update)
  143.     )
  144.     (
  145.         (exit)
  146.     )
  147. )
  148.  
  149. (if (= install_mode install_mode_update)
  150.     (
  151.         (set install_dir (expandpath "STCCG:"))
  152.     )
  153. )
  154.  
  155. (set @default-dest (install_dir))
  156.  
  157. (complete 10)
  158.  
  159. (copyfiles (source "Guides") (dest "STCCG:") (all))
  160.  
  161. (complete 100)
  162.  
  163. (exit #stccg_complete)
  164.  
  165.